home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 28 / Tiger_Disk_028_19xx_Tiger-Crew-Disk_de_Side_A.d64 / si.ba. sonntags (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  44 lines
  1. 0 print"[147]"
  2. 1 print"[151]einem gaertner bietet sein lehrling an, jeden sonntag zusaetzlich zu  "
  3. 2 print"[151]arbeiten, wenn er am naechsten sonntag  genau den doppelten lohn vom "
  4. 3 print"[151]vorhergehenden erhaelt.":DF 9
  5. 5 print"[147]"
  6. 10 input "[151] geldsumme, eingabe in pfennig";a
  7. 13 print"[158]              "
  8. 15 print " 1 sonntag    ",a
  9. 20 b=a+a : print " 2.sonntag    ",b
  10. 30 c=b+b : print " 3.sonntag    ",c
  11. 40 d=c+c : print " 4.sonntag    ",d
  12. 50 e=d+d : print " 5.sonntag    ",e
  13. 60 f=e+e : print " 6.sonntag    ",f
  14. 70 g=f+f : print " 7.sonntag    ",g
  15. 80 h=g+g : print " 8.sonntag    ",h
  16. 81 i=h+h : print " 9.sonntag    ",i
  17. 82 j=i+i : print "10.sonntag    ",j
  18. 84 k=j+j : print "11.sonntag    ",k
  19. 86 l=k+k : print "12.sonntag    ",l
  20. 88 m=l+l : print "13.sonntag    ",m
  21. 89 DF 5
  22. 90 n=m+m : print "14.sonntag    ",n
  23. 92 o=n+n : print "15.sonntag    ",o
  24. 94 p=o+o : print "16.sonntag    ",p
  25. 96 q=p+p : print "17.sonntag    ",q
  26. 98 r=q+q : print "18.sonntag    ",r
  27. 100 s=r+r: print "19.sonntag    ",s
  28. 102 t=s+s: print "20.sonntag    ",t
  29. 104 u=t+t: print "21.sonntag    ",u
  30. 106 v=u+u: print "22.sonntag    ",v
  31. 108 w=v+v: print "23.sonntag    ",w
  32. 110 x=w+w: print "24.sonntag    ",x
  33. 112 y=x+x: print "25.sonntag    ",y
  34. 114 z=y+y: print "26.sonntag    ",z
  35. 115 print"[158]                              "
  36. 116 print"nach einem halben jahr (26 sonntage)    betraegt die lohnsumme   >>"
  37. 117 print"[158]                              "
  38. 118 print" pfennige   :",z
  39. 119 print"oder mark   :",z/100
  40. 120 print"noch eine eingabe ? (j/n)";
  41. 121 get an$: if an$="" then121
  42. 122 ifan$="j" then 5
  43. 123 D 25,1,6:DF 5 :print"[147]":D 0:if an$<>"n" then 121
  44.